home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD020d.dsk / MENU.bas < prev    next >
BASIC Source File  |  2003-06-12  |  3KB  |  79 lines
  1. 10  DIM F$(15):D$ =  CHR$(4)
  2. 20  ONERR  GOTO 50
  3. 30 N = N +1: READ F$(N): IF N <15  THEN 30
  4. 40 NM = 15: GOTO 70
  5. 50  POKE 216,0:ER =  PEEK(222):NM = N -1
  6. 60  IF ER < >42  THEN  PRINT "ERROR #";ER; CHR$(7);: END 
  7. 70  TEXT : HOME : INVERSE 
  8. 80  VTAB 4: HTAB 6: PRINT "*** SOFTGRAPH MAIN MENU ***"
  9. 90  NORMAL : PRINT : PRINT 
  10. 100  FOR N = 1 TO 15
  11. 110  IF F$(N) = ""  THEN N = 15: GOTO 130
  12. 120  PRINT  SPC( 8);N;" - ";F$(N)
  13. 125  IF NM <9  THEN  PRINT 
  14. 130  NEXT N
  15. 135 VT =  PEEK(37) +2: IF VT >23  THEN VT = 23
  16. 140  VTAB VT: HTAB 6: PRINT "ENTER NUMBER OF CHOICE: ";: CALL  -958: INPUT "";N$
  17. 150 N =  VAL(N$): IF N <1  OR N >NM  THEN 140
  18. 160  IF N >NM -2  THEN 180
  19. 170  HOME : VTAB 10: PRINT "INSERT PROGRAM DISK IN DRIVE 1": PRINT "AND HIT A KEY. USE ESCAPE TO ABORT.";: GET A$: IF A$ =  CHR$(27)  THEN 70$(4);"RUN";F$(N);",D1"
  20. 175  PRINT : PRINT  CHR$(4);"RUN";F$(N);",D1"
  21. 180  IF N = NM  THEN  HOME : END 
  22. 190  REM DOS MENU
  23. 200  HOME : VTAB 3: HTAB 6: PRINT "SOFTGRAPH DISK OPTIONS MENU"
  24. 205  PRINT : PRINT 
  25. 210  HTAB 9: PRINT "1- LOAD A DATA FILE"
  26. 220  HTAB 9: PRINT "2- SAVE A DATA FILE"
  27. 225  PRINT 
  28. 230  HTAB 9: PRINT "3- LOAD A CHART"
  29. 240  HTAB 9: PRINT "4- SAVE A CHART"
  30. 245  PRINT 
  31. 250  HTAB 9: PRINT "5- VIEW THE HIRES SCREEN"
  32. 260  HTAB 9: PRINT "6- CATALOG"
  33. 265  PRINT 
  34. 270  HTAB 9: PRINT "7- BACK TO MAIN MENU"
  35. 280  VTAB 18: HTAB 7: PRINT "SELECT AN OPTION: ";: CALL  -958: INPUT "";N$
  36. 290 M =  INT( VAL(N$)): IF M <1  OR M >7  THEN 280
  37. 300  ON M GOTO 302,302,302,302,640,600,70
  38. 302  HOME : IF  INT(M/2) = M/2  THEN  PRINT "SAVE ";: GOTO 304
  39. 303  PRINT "LOAD ";
  40. 304  IF M <3  THEN F$ = "D.": PRINT "A DATAFILE": GOTO 310
  41. 305 F$ = "C.": PRINT "A CHART"
  42. 310  VTAB 8: PRINT "FILENAME (,S#,D#): ";F$
  43. 320  VTAB 8: HTAB 20: PRINT F$;: CALL  -958: GET N$:N =  ASC(N$)
  44. 330  IF N = 8  THEN 370
  45. 340  IF N = 13  THEN 390
  46. 350  IF N <32  THEN 320
  47. 360 F$ = F$ +N$: GOTO 320
  48. 370  IF  LEN(F$) <2  THEN F$ = "": GOTO 320
  49. 380 F$ =  LEFT$(F$, LEN(F$) -1): GOTO 320
  50. 390  IF F$ = ""  OR F$ = "C."  OR F$ = "D."  THEN 190
  51. 400  ONERR  GOTO 480
  52. 410  PRINT 
  53. 420  PRINT D$;"VERIFY";F$
  54. 430  POKE 216,0
  55. 440  IF M = 1  OR M = 3  THEN 510
  56. 450  VTAB 10: HTAB 1: PRINT "OVERWRITE EXISTING FILE (Y OR N)? ";: GET N$: IF N$ = "N"  THEN 190
  57. 460  IF N$ < >"Y"  THEN 450
  58. 470  PRINT : PRINT D$;"DELETE";F$: GOTO 510
  59. 480  POKE 216,0:ER =  PEEK(222)
  60. 490  IF ER < >6  THEN  PRINT "DOS ERROR #";ER; CHR$(7);: GET N$: GOTO 190
  61. 500  IF M = 1  OR M = 3  THEN  PRINT "FILE NOT FOUND"; CHR$(7);: GET N$: GOTO 190
  62. 510  ON M GOTO 520,540,560,580
  63. 520  PRINT D$;"BLOAD";F$
  64. 530  GOTO 190
  65. 540  PRINT D$;"BSAVE";F$;",A25056,L800"
  66. 550  GOTO 190
  67. 560  PRINT D$;"BLOAD";F$;",A16384"
  68. 570  GOTO 190
  69. 580  PRINT D$;"BSAVE";F$;",A16384,L8192"
  70. 590  GOTO 190
  71. 600  PRINT : PRINT "CATALOG DRIVE #";: GET A$
  72. 610  HOME :N =  VAL(A$): IF N <1  OR N >2  THEN N = 1
  73. 620  PRINT : PRINT D$;"CATALOG,D";N
  74. 630  PRINT : PRINT "HIT A KEY.";: GET A$: GOTO 190
  75. 640  POKE  -16299,0: POKE  -16302,0: POKE  -16297,0: POKE  -16304,0
  76. 650  GET A$: TEXT : GOTO 190
  77. 1000  DATA  INSTRUCTIONS
  78. 1010  DATA  DATA EDITOR,PIE CHART,BAR/LINE CHART
  79. 1090  DATA  DISK MENU,QUIT